#while EXPRLABEL
#while (EXPR) BLOCKLABEL
#while (EXPR) BLOCK continue BLOCK


$j = 1;

do
{
   print "$j\n"; 
   $j++;
} while ($j<=10);



for ($i=0;$i<100;$i++)
{
print $i;
}





for ($index=0;$index<@months;$index++)
{
   print "$months[$index]\n";
}


foreach (@months)
{
   print "$_\n";
}


foreach $key (keys %monthstonum)
{
   print "Month $monthstonum{$key} is $key\n";
}

